Top 10k strings from Learn BASIC Programming on the Sinclair ZX Spectrum (1984)(Logic 3)(Tape 1 of 2).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
15 m(s+j*q)=1 12 10 " Read up"; 5 z$(ppp)="#" 5 u$=u$+i$(m) 5 pppp=pppp-1 5 m(s+j*q)=2 5 m(s+(j*q))=2 5 m(s+(j*q))=0 5 j$=j$+z$(ppp): 5 j$=j$(qq+2 5 j$=j$(pppp+1 5 i$=i$+u$(m) 5 d$=d$+e$(i) 5 d$="HELP") 5 b$=b$+d$(m) 5 ;" If you would like another go" 5 ;" This is a quiz to test your" 5 ;" The answer is:": 5 (d$="help" 5 "Wrong","No","Incorrect","Not right" 5 "Section 1.2" 5 "OK","Good","Right","Correct" 5 "Look at ";: 5 " type help followed by ENTER " 5 " then press the ENTER key." 5 " questions on the screen, and" 5 " knowledge of chapter ";ch;"." 5 " and the SPECTRUM will give you" 5 " a hint." 5 " Sorry, that was too long.": 5 " Please type a shorter answer.": 5 " following section again:": 5 " at the quiz, type Y." 5 " You got ";x;" out of ";q;" questions" 5 " Still wrong! Read up the": 5 " Read up this section again before going on:"; 5 " Otherwise type N." 5 " Look at"; 5 " Go and revise"; 5 " A little more work needed."," Room for improvement."," That was good in parts."," Not bad at all!"," Excellent!" 5 " right.": 5 " You put that the first time!": 5 " Type in your answers to the " 5 " This is question number ";s 5 " The answer is": 5 " If you don't know the answer," 5 " Hit any key to begin." 5 quiz program for unit n by A.M. Colin 1983 5 copyright 5 Talent computer systems 1983 4 z$(ppp)="@" 4 u$=u$+"@": 4 this routine puts all of a string into lower case and removes the spaces 4 program data goes here 4 numberof questions 4 chapter number 4 Given a string in z$noutput itin lines. 3 TALENT COMPUTER SYSTEMS 1983 2 q$=q$+"+": 2 l$(vn)="LET "+ 2 a$=a$+"the " 2 Wrong No Incorrect Not right 2 OK Good Right Correct 2 Is this##a) True#b) False#c) Not BASIC" 2 COPYRIGHT 2 "true/t/","section 5.2","true." 2 " Yellow" 2 " Purple" 2 " Green colours" 2 " then press any key" 2 " 2 COPYRIGHT 2 A little more work needed. Room for improvement. That was good in parts. Not bad at all! Excellent! 2 then hit any key to run 2 turn off tape recorder 2 this program 2 "; 1 z$="LET "+ 1 x(m)-x(k),y(m)-y(k) 1 x$=e$(pd+1 1 ultiplican 1 ultilpican 1 typex d 1 tsr=tsr+t: 1 to partition a string in s$ into a number of lines without wrap-around of words 1 testcard c! 1 ter=ter+e: 1 section 8.1G 1 section 4.1G 1 s$=s$+q$(1 1 s$=s$+b$(pa): 1 s$=s$(pb+1 1 routine to display j$ 1 rating is the current rating number 1 quiz8 b 1 quiz6 1 quiz5 1 quiz4 1 quiz1 l 1 q$=q$+"*": 1 q$=q$+" +"+ 1 q$=m$+" ": 1 q$=l$(va-j+1 1 q$(jj)="$" 1 p$(j)=" ": 1 obligations for numerical LET statemen 1 multiplicand=1 1 multiplicand ;" times 9 = ";multiplicand*9 1 multiplicand 1 multilpicand=multiplicand+1 1 marks use of a word 1 l$(vn,kk+1 1 l$(vc)=z$+q$ 1 initial heading 1 graph 1 given a string with formal parameters in b$,deliver a string with actual parameters in s$ 1 f(fp)=v(va- 1 erase trailing spaves 1 e$(pb)=" " 1 dog pig goblin witch fish hyena jackal spider toad viper duck goat tiger dirty fierce noisy smelly angry fat foul savage huge filthy slimy 1 d$(nn+na,10 1 c7prog - 1 c3drill 1 1 b$="NOTHING" 1 b$(pa)="*" 1 an imposing shooting lodge in the Highlands fiendishly clever A passing tramp electrocuted by a badly-wired computer dungeon twelve-ton statue of Cupid safe a master key to all the bedrooms Sherlock Holmes Q 1 a/once/1/one/H 1 a$=a$+d$(jj) 1 a$=a$+" and " 1 You have mistakenly typed thez 1 You have mistakenly typed the#keyword PRINT. How many#times must you press the#DELETE key to erase the#keyword?##a) Once#b) Five times#c) You can't use DELETE to#get rid of keywords.You must#press ENTER and then retype#the command.A 1 You have mistakenly typed the#keyword PRINT. How many#times must you press the#DELETE key to erase the#keyword?##a) Once#b) Five times#c) You can't use DELETE to#get rid of keywords.You must#press ENTER and then retype#the command. 1 Typing exercise 1 This subroutine displays one line (supplied in E$) and allows the user to copy it.The line character count is in E,and the time for a correct copy is returned in T 1 This program may contain deliberate errors 1 TAPE 1 SIDE 2 1 TAPE 1 SIDE 1 1 Routine - given a string ins$ and a word or phrase in q$,append q4 to s$ and eliminate any trailing spaces 1 LEARN COMPUTING SERIES. TAPE 1 1 LEARN BASIC PROGRAMMING ON THE SINCLAIR ZX SPECTRUM0 1 In a primitive night club in thee 1 In a primitive night club in the West End a peculiarly horrible crime had been committed.E 1 In *01 *02 a *03 crime had been committed. 1 How do you stop a program#waiting for input?##a)Type the symbol STOP after# erasing @ if necessary#b)Type N#c)Type CAPS SHIFT and BREAK# SPACE together#d)Pull out the power plugA 1 How do you stop a program#waiting for input?##a)Type the symbol STOP after# erasing @ if necessary#b)Type N#c)Type CAPS SHIFT and BREAK# SPACE together#d)Pull out the power plug 1 How do you ' 1 Almost immediatelyX 1 ANDREW & VERONICA COLIN 1 ?FULL TITLE: 1 ;"stop tape."; 1 ;"Your rating is ";rating 1 ;"Hit a key to repeat pattern" 1 ;"Copy this as fast as you can:" 1 ;" Error - hit DELETE (CAPS SHIFT" 1 ;" " 1 ,"was caught trying to sell the swag at Sotheby's","was caught trying to hide in the dust-bin" 1 ,"shooting lodge in the Highlands","holiday camp in the North of Scotland","hotel in Mayfair","castle on the top of a mountain" 1 ,"safe","mantel-piece","refrigerator","linen cupboard","potting shed","bread bin" 1 ,"kitchen","dungeon","bathroom","lavatory","wine-cellar","TV room","bar","conservatory" 1 ,"drowned in a bird bath","electrocuted by a badly-wired computer","devoured by a man-eating tiger","hit on the head by a poker" 1 ,"dastardly","hideous","fiendishly clever","peculiarly horrible","diabolical","desperate" 1 ,"cask of 300-year-old brandy","twelve-ton statue of Cupid","complete set of encyclopaedias" 1 ,"an imposing","a grand","an exclusive","a primitive","a remote","a lonely","an ornate" 1 ,"a hankerchief drenched in cheap perfume","a jogging shoe covered with mud","a Mickey Mouse mask","an empty tin of anchovies" 1 ,"The butler","The cook's pet rat","Aunt Agatha","A complete stranger","A retired bishop","A passing tramp","A visiting sheikh" 1 ,"Sherlock Holmes","Father Brown","Hercule Poirot","Inspector Maigret","Tintin","Lord Peter Wimsey","James Bond" 1 ,"Count Dracula","the butler's mother-in-law","a foreign spy","the swimming pool attendant" 1 ,"After a year and a half","Almost immediately","After exhaustive enquiries","Two minutes later","After months had passed" 1 )=f(fp)*f(fp-1 1 (q$(p))-48 1 (q$(p))+97 1 "you go on until you have pressed" 1 "yes/y/true/t/","section 8.1","yes." 1 "y/yes/true/t/","section 5.1","yes." 1 "would expect the answer 7 ." 1 "various colours the SPECTRUM can" 1 "variablenotfound/","section 6.1","variable not found" 1 "true/t/a/","section 6.1","true." 1 "true/t/","section 6.2","true." 1 "tried to commit a similar crime in Slough","confessed to everything in a drunken moment","was betrayed by the parrot" 1 "to start with is 1." 1 "to go on." 1 "thedeletekey/delete key/delete/a/" 1 "thecursor/thecurser/cursor/curser/" 1 "the spaces in the right place." 1 "the next page of information." 1 "the keyboard of the SPECTRUM and" 1 "the gardener's boy","the Creature from the Black Lagoon" 1 "the exercise please type Y." 1 "the enter key" 1 "the delete key" 1 "the caps shift key" 1 "simple numbers and strings." 1 "show, and lets you adjust your" 1 "section 4.2" 1 "section 4.1." 1 "section 1.2" 1 "ready for the next problem." 1 "program. You have to type in ex-" 1 "program you see. For example," 1 "practice." 1 "of the problems. The right grade" 1 "of the PRINT and LET commands," 1 "new/","Section 4.1","'NEW'" 1 "n/breakspace/break/space/" 1 "member to use capitals and small" 1 "many/d/","section 6.2","many." 1 "little-known masterpiece by Perugino","gold-plated teapot","diamond toothpick","pedigree hamster" 1 "lines of writing which make up" 1 "letters in the right places!" 1 "higher levels. You should reach 1 "help you learn your way around" 1 "health farm on the Isle of Man","night club in the West End","bungalow in Peebles" 1 "gradually get harder as you gain" 1 "going up!" 1 "get some practice at typing." 1 "gain practice. Now hit any key" 1 "followed by the right key. Re-" 1 "first time. Your grade is ";sg 1 "false/f/b/","section 6.1","false." 1 "false/f/","section 6.1","false." 1 "f/false/untrue/" 1 "f/false/","section 6.1","false." 1 "f/false/","Section 4.1","False" 1 "each in the form of a short" 1 "dog","pig","goblin","witch","fish","hyena","jackal","spider","toad","viper","duck","goat","tiger" 1 "display if it were to run the" 1 "dirty","fierce","noisy","smelly","angry","fat","foul","savage","huge","filthy","slimy" 1 "develop and test your knowledge" 1 "d/","section 5.2","d." 1 "computer will BEEP and won't let" 1 "can. If you make a mistake the" 1 "c/c)/itflashesaquestionmark/" 1 "c/anynumber/","section8.1","any number." 1 "c/231/@231@/" 1 "c/","section 5.3","c." 1 "b/under the cursor/","section 5.1","b." 1 "b/hundreds/severalhundred/","Section 4,1","several hundred" 1 "b/capsshift/thecapsshift/thecapsshiftkey/capsshiftkey/" 1 "b/10/","Section 5.2","10 characters." 1 "b/","section 4.1","b." 1 "b/","Section 4.1","b" 1 "and over, you can work up to" 1 "and of the way they handle" 1 "and 0) before you can go on. " 1 "age/","section 8.1","age ." 1 "actly what the computer would" 1 "accurately and as fast as you" 1 "about strings, be sure to get": 1 "a/theenterkey/enter/" 1 "a/symbolshift/symbolshiftkey/thesymbolshiftkey/" 1 "a/stop/","section 8.1","a." 1 "a/once/1/one/","section 4.1","once." 1 "a/clears screen/","section 1.4","a." 1 "a/","section 5.1","a." 1 "a short story. Copy the lines" 1 "a master key to all the bedrooms","an empty vodka bottle","a large lump of chewing-gum" 1 "a 'grade' to control the level" 1 "Your grade is now ";sg: 1 "Your final rating was" 1 "You have mistakenly typed the#keyword PRINT. How many#times must you press the#DELETE key to erase the#keyword?##a) Once#b) Five times#c) You can't use DELETE to#get rid of keywords.You must#press ENTER and then retype#the command." 1 "Will the cursor control keys#reveal a hidden cursor?##" 1 "Which key do you use to rub out ?##a)the DELETE key#b)the SPACE key#c)you can't rub out# Answer a, b or c." 1 "Which is the symbol of the#program cursor?##a) A @>@ just after the# line number#b) A @>@ before the line# number#c) A flashing square#d) Something else" 1 "Which command clears the#memory,and should be used#before you start typing a#new program?" 1 "When you have typed a command, which key makes the SPECTRUM obey it?##a)ENTER#b)RUN#c)GOTO# Answer a, b or c." 1 "When you edit a program line,#new characters go##a) At the end of the line#b) Under the cursor (which# then moves along)#c) Somewhere else#" 1 "When you SAVE a program, you#must disconnect the plug#marked EAR.##True or False?##" 1 "When a numbered command is#obeyed it is actually#removed from the SPECTRUM's#memory.##True or false ?" 1 "What you said was": 1 "What would be displayed?" 1 "What key must you hold down when using the DELETE key?##a)ENTER#b)CAPS SHIFT#c)SYMBOL SHIFT#d)no key# Answer a, b, c or d." 1 "What key must you hold down to get a red symbol (such as +)?##a)SYMBOL SHIFT#b)SYMBOL SHIFT AND CAPS SHIFT#c)another key# Answer a, b or c." 1 "What is the flashing black square called ?" 1 "What happens if the program#tries to GO TO a line number#which doesn't exist?#a)The SPECTRUM stops with an# error message#b)The program goes to the#next higher line (if there is#one; otherwise it stops#c)The computer gives an error#message when you type the#GO TO command." 1 "Variable j has the current#value 23. Consider the#command## LETj = j + 1##is this#a) Incorrect BASIC#b) A command to set j to 24#c) A command to set j to 231" 1 "Type your answer below." 1 "To remove a character from a#line, you put the statement#cursor after the character#you want to get rid of.##True or false?" 1 "To erase a particular#command you##a) Type NEW with the command#number#b) Type the command number#c) Type - followed by the#command number#(all,of course, followed by#ENTER)" 1 "They are part of the answer." 1 "The only clue was *09." 1 "The cursor" 1 "The SYMBOL SHIFT key" 1 "The CLS command##a) Clears the screen only#b) Clears the screen and the# SPECTRUM store#c) Does something else as well" 1 "That's correct. Your grade is" 1 "TV set for the best picture." 1 "Suppose the computer already#contains a line labelled#100. You type# 100 PRINT 5+7#is the new command#a)Put in place of the old one#b)Obeyed immediately#c)Attached to the end of the#old one#d)Rejected#" 1 "Suppose j$ has the value#@23@. Consider the command## LET j$ = j$ + @1@#is it##a) An impossibility#b) A command to set j$ to 24#c) A command to set j$ to#@231@" 1 "Still wrong! The answer is :" 1 "Section 4.2" 1 "Section 4.1" 1 "Right this time." 1 "PROBLEM NUMBER ";nq 1 "Otherwise type N." 1 "Now type your grade,followed by" 1 "No. Try again." 1 "Nine times table" 1 "Name one of the correct#replies to @scroll@ if you#want your program to stop." 1 "N or BREAK/SPACE" 1 "It flashes a question mark" 1 "In a new program, label#numbers must always be#separated by 10.##True or False ?##" 1 "In *01 *02 a *03 crime had been committed." 1 "If you would like to repeat" 1 "How many variables can be put#into the same INPUT command?##a) 1#b) 2#c) Any number" 1 "How many BASIC commands can#the SPECTRUM obey every#second?##a) about 10#b) several hundred#c) about a million#" 1 "How long can a SAVE name be?##a) 8 characters#b)10 characters#c)any reasonable length" 1 "How does the SPECTRUM react to a typing mistake when you press ENTER ?#a)It goes blank#b)It carries on regardless#c)It flashes a question mark#d)It breaks down# Answer a, b, c or d." 1 "How do you stop a program#waiting for input?##a)Type the symbol STOP after# erasing @ if necessary#b)Type N#c)Type CAPS SHIFT and BREAK# SPACE together#d)Pull out the power plug" 1 "Hit any key as soon as you are": 1 "Grade? ";sg 1 "ENTER :" 1 "Consider this program:## 10 LET x=5# 20 PRINT x# 30 LET x=x+1# 40 IF x>7 THEN GO TO 30# 50 STOP##How many lines will it#display?#a)6 b)7 #c)Another number" 1 "Consider this program## 10 LET a=1# 20 PRINT a*a# 30 LET a=a+2# 40 IF a <= 10 THEN GO TO 20# 50 STOP##How many lines are displayed?#a) 1: b) 5: c) 6: d) 10" 1 "Consider a program which in-#cludes line numbers 10,20,30#and 40. You give the command# LIST 25#What happens ?#a)Nothing#b)The computer gives an error#c)The machine lists lines 30# and 40,with the program# cursor at 30#d)The SPECTRUM lists 30 and# 40, with no visible cursor." 1 "Can the variables in an INPUT#command be of mixed types?" 1 "A program you have borrowed#includes the notice#COPYRIGHT 1 "A *07 was missing from the *08." 1 "@millimeter@<@centimeter@## 1 "@Millimeter@<@centimeter@## 1 "@LOGIC 3@<>@LOGIC @+@3@##True or false ?#" 1 "@3<5@ = @4<6@##True or false? " 1 "66/","section 6.1","66" 1 "5/five/b/","section 6.2","5." 1 "3/d/","section 8.1","3" 1 "24. + means 'add'" 1 "231. j$ is a string" 1 "13/","section 8.1","13." 1 "12 or more." 1 "118/","section 8.1","118" 1 "1/one/c/another number/","section 6.2","another number (1)." 1 "*11 he found that the villain was *12 who *13." 1 "*10 was called in to solve the mystery." 1 "*04 had been *05 in the *06." 1 "'DELETE' (CAPS SHIFT and ZERO)" 1 " section 4.2" 1 " Would you like to go again?" 1 " This program displays all the" 1 " 10 LET q$ = @z@# 20 LET q$=q$+@z@# 30 PRINT q$# 40 IF q$<>@zzz@ THEN GO TO 30# 50 STOP##How many lines are displayed?#a) 1: b) 2: c) 3#d) many" 1 " 10 LET one=1# 20 LET two=2# 30 LET three=3# 40 INPUT @How many? @;j# 50 PRINT j+1# 60 STOP##If the user types @two@,#what is printed?##a) two+1: b) 2+1#c) three: d) 3" 1 " 10 LET a = 59# 20 INPUT @Number? @;x# 30 PRINT x+a# 40 STOP##If the user types @dog@#what is printed?" 1 " 10 LET a = 59# 20 INPUT @Number? @;x# 30 PRINT x+a# 40 STOP##If the user types a #what is printed?" 1 " 10 LET a = 59# 20 INPUT @Number? @;x# 30 PRINT x+a# 40 STOP##If the user types 7 #what is printed?" 1 " 10 INPUT @Number ?@;a# 20 PRINT 2*a-7# 30 STOP##IF the user types 10, what#will be displayed?" 1 " 10 INPUT @Letter? @;a$# 20 PRINT @a@+a$+@e@# 30 STOP##What will be displayed if the#user types g ?" 1 " When you answer questions": 1 " Watch your rating grow as you" 1 " Wait a moment please!" 1 " The program will show you some" 1 " Red Dull" 1 " Red Bright" 1 " Please press any key to get" 1 " 2*7<=15-1##True or false?" 1 " You will be given 20 problems" 1 " You got ";tr;" problems right" 1 " We are going to ask you for" 1 " This program is designed to" 1 " This program helps you to" 1 " The problems start easy and" 1 " As you run the program over" 1 " ( Answer y/n )" 1 " 20 PRINT a+3" 1 " 10 LET a = 4" 1 " ";rating 1 " ";l$(j, 1 " ";"PRINT ";q$ 1 " STOP TAPE" 1 " STOP TAPE" 1 sign and stop you copying" 1 Number of parameters 1 HENRY HEAP 1983#Which is true?#a)You can copy the program#for private use only#b)Copyright doesn't apply to#programs#c)Legally you are not allowed#to copy the tape at all#d)The SPECTRUM will see the# 1 ANDREW COLIN 1983 1 1 1